Option Strict Off
Option Explicit On
Imports System.Windows

Public Class RadialGaugeTickMarkGroupExtension
    Inherits DependencyObject



    Public Shared Function GetSize(ByVal element As DependencyObject) As Double
        If element Is Nothing Then
            Throw New ArgumentNullException("element")
        End If

        Return element.GetValue(SizeProperty)
    End Function
    Public Shared Sub SetSize(ByVal element As DependencyObject, ByVal value As Double)
        If element Is Nothing Then
            Throw New ArgumentNullException("element")
        End If

        element.SetValue(SizeProperty, value)
    End Sub

    Public Shared ReadOnly SizeProperty As  _
                           DependencyProperty = DependencyProperty.RegisterAttached("Size", _
                           GetType(Double), GetType(RadialGaugeTickMarkGroupExtension), _
                           New FrameworkPropertyMetadata(1.0))



End Class

